/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / share / 17 / dings_e.exe / Projects / Samples / Basics / SIN_COS.SRC

< prev

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 13 24 24 44 69 6e 67 73 | 5f 50 72 6f 6a 65 63 74 |.$$Dings|_Project|
|00000010| 46 69 6c 65 2e 00 00 00 | 46 72 61 6d 65 72 61 74 |File....|Framerat|
|00000020| 65 20 36 30 20 52 65 73 | 6f 6c 75 74 69 6f 6e 20 |e 60 Res|olution |
|00000030| 30 20 46 75 6c 6c 73 63 | 72 65 65 6e 20 30 20 44 |0 Fullsc|reen 0 D|
|00000040| 65 62 75 67 20 31 ff 98 | 04 2f 2f 2f 2f 2f 2f 2f |ebug 1..|.///////|
|00000050| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 0d 0a 2f |////////|/////../|
|00000060| 2f 20 53 49 4e 2d 43 4f | 53 20 42 65 69 73 70 69 |/ SIN-CO|S Beispi|
|00000070| 65 6c 65 0d 0a 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |ele..///|////////|
|00000080| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 0d 0a 0d 0a 2f 2f 20 |////////|/....// |
|00000090| 41 63 68 74 75 6e 67 3a | 0d 0a 2f 2f 20 53 49 4e |Achtung:|..// SIN|
|000000a0| 2c 20 43 4f 53 20 26 20 | 54 41 4e 20 73 69 6e 64 |, COS & |TAN sind|
|000000b0| 20 31 30 30 30 66 61 63 | 68 65 20 64 65 72 20 65 | 1000fac|he der e|
|000000c0| 63 68 74 65 6e 20 57 69 | 6e 6b 65 6c 66 75 6e 6b |chten Wi|nkelfunk|
|000000d0| 74 69 6f 6e 65 6e 2c 0d | 0a 2f 2f 20 64 61 20 44 |tionen,.|.// da D|
|000000e0| 69 4e 47 53 20 6d 69 74 | 20 5a 61 68 6c 65 6e 20 |iNGS mit| Zahlen |
|000000f0| 6f 68 6e 65 20 4e 61 63 | 68 6b 6f 6d 6d 61 73 74 |ohne Nac|hkommast|
|00000100| 65 6c 6c 65 6e 20 72 65 | 63 68 6e 65 74 2e 20 44 |ellen re|chnet. D|
|00000110| 61 73 20 69 73 74 0d 0a | 2f 2f 20 65 74 77 61 73 |as ist..|// etwas|
|00000120| 20 75 6d 73 74 e4 6e 64 | 6c 69 63 68 2c 20 6a 65 | umst.nd|lich, je|
|00000130| 64 6f 63 68 20 64 61 6e | 6b 74 20 65 73 20 6d 69 |doch dan|kt es mi|
|00000140| 74 20 64 65 72 20 47 65 | 73 63 68 77 69 6e 64 69 |t der Ge|schwindi|
|00000150| 67 6b 65 69 74 0d 0a 2f | 2f 20 64 65 73 20 50 72 |gkeit../|/ des Pr|
|00000160| 6f 67 72 61 6d 73 2e 0d | 0a 0d 0a 2f 2f 20 41 74 |ograms..|...// At|
|00000170| 74 65 6e 74 69 6f 6e 3a | 0d 0a 2f 2f 20 53 49 4e |tention:|..// SIN|
|00000180| 2c 20 43 4f 53 20 26 20 | 54 41 4e 20 72 65 74 75 |, COS & |TAN retu|
|00000190| 72 6e 20 31 30 30 30 78 | 20 74 68 65 20 72 65 61 |rn 1000x| the rea|
|000001a0| 6c 20 6d 61 74 68 65 6d | 61 74 69 63 61 6c 20 66 |l mathem|atical f|
|000001b0| 75 6e 63 74 69 6f 6e 0d | 0a 2f 2f 20 73 69 6e 63 |unction.|.// sinc|
|000001c0| 65 20 44 69 4e 47 53 20 | 63 61 6c 63 75 6c 61 74 |e DiNGS |calculat|
|000001d0| 65 73 20 69 6e 20 69 6e | 74 65 67 65 72 73 2e 20 |es in in|tegers. |
|000001e0| 54 68 69 73 20 69 73 20 | 61 20 62 69 74 20 61 77 |This is |a bit aw|
|000001f0| 6b 77 61 72 64 2c 0d 0a | 2f 2f 20 62 75 74 20 6d |kward,..|// but m|
|00000200| 61 6b 65 73 20 79 6f 75 | 72 20 70 72 6f 67 72 61 |akes you|r progra|
|00000210| 6d 20 72 65 61 6c 6c 79 | 20 66 61 73 74 2e 0d 0a |m really| fast...|
|00000220| 0d 0a 49 6e 69 74 3a 0d | 0a 62 65 74 61 3d 30 0d |..Init:.|.beta=0.|
|00000230| 0a 0d 0a 44 49 4d 20 77 | 6f 72 74 24 5b 35 5d 20 |...DIM w|ort$[5] |
|00000240| 2f 2f 20 49 6e 64 65 78 | 20 30 2d 34 0d 0a 0d 0a |// Index| 0-4....|
|00000250| 77 6f 72 74 24 5b 30 5d | 3d 22 44 22 0d 0a 77 6f |wort$[0]|="D"..wo|
|00000260| 72 74 24 5b 31 5d 3d 22 | 69 22 0d 0a 77 6f 72 74 |rt$[1]="|i"..wort|
|00000270| 24 5b 32 5d 3d 22 4e 22 | 0d 0a 77 6f 72 74 24 5b |$[2]="N"|..wort$[|
|00000280| 33 5d 3d 22 47 22 0d 0a | 77 6f 72 74 24 5b 34 5d |3]="G"..|wort$[4]|
|00000290| 3d 22 53 22 0d 0a 0d 0a | 2f 2f 20 48 61 75 70 74 |="S"....|// Haupt|
|000002a0| 73 63 68 6c 65 69 66 65 | 20 2f 20 4d 61 69 6e 20 |schleife| / Main |
|000002b0| 6c 6f 6f 70 0d 0a 44 6f | 3a 0d 0a 62 65 74 61 3d |loop..Do|:..beta=|
|000002c0| 62 65 74 61 2b 31 0d 0a | 57 48 49 4c 45 20 62 65 |beta+1..|WHILE be|
|000002d0| 74 61 3e 33 36 30 0d 0a | 09 62 65 74 61 3d 62 65 |ta>360..|.beta=be|
|000002e0| 74 61 2d 33 36 30 0d 0a | 57 45 4e 44 0d 0a 0d 0a |ta-360..|WEND....|
|000002f0| 46 4f 52 20 69 3d 30 20 | 54 4f 20 34 3b 0d 0a 20 |FOR i=0 |TO 4;.. |
|00000300| 20 67 61 6d 6d 61 3d 69 | 2a 34 35 2b 62 65 74 61 | gamma=i|*45+beta|
|00000310| 20 20 20 2f 2f 20 44 69 | 4e 47 53 20 72 65 63 68 |   // Di|NGS rech|
|00000320| 6e 65 74 20 6e 69 63 68 | 74 20 50 75 6e 6b 74 20 |net nich|t Punkt |
|00000330| 76 6f 72 20 53 74 72 69 | 63 68 20 2f 20 44 69 4e |vor Stri|ch / DiN|
|00000340| 47 53 20 77 6f 6e 27 74 | 20 64 6f 20 2a 2f 20 62 |GS won't| do */ b|
|00000350| 65 66 6f 72 65 20 2b 2d | 0d 0a 0d 0a 20 20 2f 2f |efore +-|....  //|
|00000360| 20 4c 61 73 73 20 6d 61 | 6c 20 65 69 6e 65 20 64 | Lass ma|l eine d|
|00000370| 65 72 20 42 65 69 64 65 | 6e 20 5a 65 69 6c 65 6e |er Beide|n Zeilen|
|00000380| 20 77 65 67 2e 2e 2e 20 | 2f 20 54 72 79 20 6c 65 | weg... |/ Try le|
|00000390| 61 76 69 6e 67 20 6f 6e | 65 20 6f 66 20 74 68 65 |aving on|e of the|
|000003a0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 32 20 6c 69 6e | followi|ng 2 lin|
|000003b0| 65 73 2e 2e 2e 0d 0a 20 | 20 7a 3d 36 34 2a 53 49 |es..... | z=64*SI|
|000003c0| 4e 28 67 61 6d 6d 61 29 | 2f 31 30 30 30 2b 31 36 |N(gamma)|/1000+16|
|000003d0| 30 0d 0a 20 20 78 3d 33 | 32 2a 43 4f 53 28 67 61 |0..  x=3|2*COS(ga|
|000003e0| 6d 6d 61 29 2f 31 30 30 | 30 2b 36 34 20 2f 2f 20 |mma)/100|0+64 // |
|000003f0| 44 69 4e 47 53 3a 20 35 | 2a 53 49 4e 28 34 35 29 |DiNGS: 5|*SIN(45)|
|00000400| 2f 31 30 30 30 20 3d 20 | 4d 61 74 68 3a 20 35 20 |/1000 = |Math: 5 |
|00000410| 2a 20 53 49 4e 28 34 35 | b0 29 0d 0a 20 20 50 52 |* SIN(45|.)..  PR|
|00000420| 49 4e 54 20 77 6f 72 74 | 24 5b 69 5d 2c 20 78 2b |INT wort|$[i], x+|
|00000430| 28 36 34 2a 69 29 2c 20 | 7a 20 2f 2f 20 44 69 4e |(64*i), |z // DiN|
|00000440| 47 53 20 72 65 63 68 6e | 65 74 20 4e 49 43 48 54 |GS rechn|et NICHT|
|00000450| 20 2a 2f 20 76 6f 72 20 | 2b 2d 20 21 21 20 4b 6c | */ vor |+- !! Kl|
|00000460| 61 6d 6d 65 72 6e 20 62 | 65 6e 75 74 7a 65 6e 21 |ammern b|enutzen!|
|00000470| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000490| 20 2f 2f 20 44 69 4e 47 | 53 20 77 6f 6e 27 74 20 | // DiNG|S won't |
|000004a0| 63 61 6c 63 75 6c 61 74 | 65 20 2a 2f 20 62 65 66 |calculat|e */ bef|
|000004b0| 6f 72 65 20 2b 2d 20 21 | 21 20 55 73 65 20 62 72 |ore +- !|! Use br|
|000004c0| 61 63 6b 65 74 73 0d 0a | 4e 45 58 54 0d 0a 53 48 |ackets..|NEXT..SH|
|000004d0| 4f 57 53 43 52 45 45 4e | 0d 0a 47 4f 54 4f 20 44 |OWSCREEN|..GOTO D|
|000004e0| 6f                      |                         |o       |        |
+--------+-------------------------+-------------------------+--------+--------+